home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / listvi1a / form1.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-09-30  |  3.7 KB  |  105 lines
  1. VERSION 5.00
  2. Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "COMCTL32.OCX"
  3. Begin VB.Form Form1 
  4.    Caption         =   "ListView Functions Example"
  5.    ClientHeight    =   5370
  6.    ClientLeft      =   60
  7.    ClientTop       =   345
  8.    ClientWidth     =   6900
  9.    BeginProperty Font 
  10.       Name            =   "Arial"
  11.       Size            =   8.25
  12.       Charset         =   0
  13.       Weight          =   700
  14.       Underline       =   0   'False
  15.       Italic          =   0   'False
  16.       Strikethrough   =   0   'False
  17.    EndProperty
  18.    LinkTopic       =   "Form1"
  19.    LockControls    =   -1  'True
  20.    ScaleHeight     =   5370
  21.    ScaleWidth      =   6900
  22.    StartUpPosition =   3  'Windows Default
  23.    Begin VB.CommandButton Command1 
  24.       Caption         =   "E&xit"
  25.       Height          =   495
  26.       Left            =   2880
  27.       TabIndex        =   1
  28.       Top             =   4800
  29.       Width           =   975
  30.    End
  31.    Begin ComctlLib.ListView ListView1 
  32.       Height          =   4695
  33.       Left            =   0
  34.       TabIndex        =   0
  35.       Top             =   0
  36.       Width           =   6855
  37.       _ExtentX        =   12091
  38.       _ExtentY        =   8281
  39.       View            =   3
  40.       LabelEdit       =   1
  41.       LabelWrap       =   -1  'True
  42.       HideSelection   =   -1  'True
  43.       _Version        =   327682
  44.       ForeColor       =   -2147483640
  45.       BackColor       =   -2147483643
  46.       BorderStyle     =   1
  47.       Appearance      =   1
  48.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  49.          Name            =   "Arial"
  50.          Size            =   8.25
  51.          Charset         =   0
  52.          Weight          =   700
  53.          Underline       =   0   'False
  54.          Italic          =   0   'False
  55.          Strikethrough   =   0   'False
  56.       EndProperty
  57.       NumItems        =   0
  58.    End
  59. Attribute VB_Name = "Form1"
  60. Attribute VB_GlobalNameSpace = False
  61. Attribute VB_Creatable = False
  62. Attribute VB_PredeclaredId = True
  63. Attribute VB_Exposed = False
  64. Option Explicit
  65. Private lFirstLoad As Boolean
  66. Private Sub Command1_Click()
  67.   Unload frmListViewImages
  68.   Set frmListViewImages = Nothing
  69.   Unload Form1
  70.   Set Form1 = Nothing
  71. End Sub
  72. Private Sub Form_Activate()
  73.   If lFirstLoad = True Then
  74.     lFirstLoad = False
  75.     Call ListViewFuncs.SetListViewToWholeRowSelect(Form1.ListView1.hwnd)
  76.   End If
  77. End Sub
  78. Private Sub Form_Load()
  79.   Dim itmX As ListItem
  80.   Dim clmX As ColumnHeader
  81.   lFirstLoad = True
  82.   Set clmX = Form1.ListView1.ColumnHeaders.Add(, , "Date (MM/DD/YYYY)")
  83.   clmX.Tag = "DATE"
  84.   Set clmX = Form1.ListView1.ColumnHeaders.Add(, , "Date For Sorting ONLY (SHOULD BE HIDDEN)")
  85.   Set clmX = Form1.ListView1.ColumnHeaders.Add(, , "Another Field")
  86.   Set clmX = Form1.ListView1.ColumnHeaders.Add(, , "Yet Another Field")
  87.   Set itmX = Form1.ListView1.ListItems.Add(, "A", "09/01/1980")
  88.   itmX.SubItems(1) = "19800901"
  89.   itmX.SubItems(2) = "Example 1"
  90.   Set itmX = Form1.ListView1.ListItems.Add(, "B", "09/01/1981")
  91.   itmX.SubItems(1) = "19810901"
  92.   itmX.SubItems(2) = "Example 2"
  93.   Set itmX = Form1.ListView1.ListItems.Add(, "C", "09/01/1990")
  94.   itmX.SubItems(1) = "19900901"
  95.   itmX.SubItems(2) = "Example 3"
  96.   Set itmX = Form1.ListView1.ListItems.Add(, "D", "09/01/1999")
  97.   itmX.SubItems(1) = "19990901"
  98.   itmX.SubItems(2) = "Example 4"
  99.   Call ListViewFuncs.AutoSizeColumnWidth(Form1.ListView1)
  100.   Call ListViewFuncs.AutoFitColumnWidth(Form1.ListView1)
  101. End Sub
  102. Private Sub ListView1_ColumnClick(ByVal ColumnHeader As ComctlLib.ColumnHeader)
  103.   Call ListViewFuncs.SortListView(Form1.ListView1, ColumnHeader.Index)
  104. End Sub
  105.